#     Xepec.ru - социальная сеть
#     Copyright (C) 2008  Fedorchenko Alexander <admin@xepec.ru>
#
#     This program is free software: you can redistribute it and/or modify
#     it under the terms of the GNU Affero General Public License as
#     published by the Free Software Foundation, either version 3 of the
#     License, or (at your option) any later version.
#
#     This program is distributed in the hope that it will be useful,
#     but WITHOUT ANY WARRANTY; without even the implied warranty of
#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#     GNU Affero General Public License for more details.
#
#     You should have received a copy of the GNU Affero General Public License
#     along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
#     Autor: Fedorchenko Alexander
#     Mail: <admin@xepec.ru>
#     Date: 06/02/2010
#
#
# Страница просмотра учетки пользователя
# с выбором настроек, если этот пользователь вы
# и с просмотров проебаных вами (не им) событиями (новостями)

require "../core.pl";

$auth_id = do_check();

&get_query();
$act=$queryString{ "act" };

##################################################################
##################-Правельный вариант-############################
##################################################################
$uname_get=$queryString{ "uname" };                   ########
if (defined($uname_get))                                ####
{                                                       ####
	if ($uname_get != $auth_id)                     ####
	{                                               ####
		$masha=0;                               ####
	}                                               ####
	else						####
	{						####
		$masha=1;				####
	}						####
	$uname_id=$uname_get;                           ####
}                                                       ####
else                                                    ####
{                                                       ####
	$masha=1;                                       ####
	print "Location: ?uname=".$auth_id."\n\n";      ####
#	exit();						####
	$uname_id=$auth_id;                             ####
}                                                       ####
@uname = uname_get($uname_id);                        ########
#################################################################
#################################################################
#################################################################
#используется в /litera/index.pl, /musik/index.php||pl, /groups/index.pl

#print $masha."\n\n\n\n\n";
if(!$auth_id) {print "Location: $SITE_ADDR/join.pl\n\n"; exit();};
if($act eq "exit")
{
		$xepec_nic_cookie = "xepec_nic 0 +3";
		$xepec_pass_cookie = "xepec_pass 0 +3";
		set_cookie($xepec_nic_cookie,$xepec_pass_cookie);
 		print "Location: $SITE_ADDR/\n\n";
}
if(!$act) {$act="show";}

###############################################################################################################################
#----------------------------------------------Вывод на экран информации------------------------------------------------------#
###############################################################################################################################

print "Content-type: text/xml; charset=utf-8\n\n";
print qq{<?xml version="1.0" encoding="UTF-8"?>
 <?xml-stylesheet type="text/xsl" href="./username.xsl"?>
<document>
    <user id="@uname['0']" nic="@uname['3']" />
    <site_addr>$SITE_ADDR</site_addr>
    <site_name>$SITE_NAME</site_name>
    <site_name2>$SITE_NAME2</site_name2>
    <title>$SITE_NAME :: @uname['1']</title>
    <version>$VERSION</version>
    <message>TRUE</message>

};
do_print_menu();

use Switch;
switch ($act)
{
	case "show"
	{	
		print qq{
		<subnav>
			<object>
				<name>Изменить информацию</name>
				<href>index.pl?uname=$auth_id&amp;act=edit</href>
			</object>
			<object>
				<name>Выход</name>
				<href>/username/index.pl?uname=$auth_id&amp;act=exit</href>
			</object>
		</subnav>
		};
	
		print qq{\n\t<content type=\"username\">
		<data>
					<show>
						<name>$uname[1]</name>};
		
		$re = $dbcnx->prepare(qq{SELECT UNIX_TIMESTAMP((SELECT last_time from username WHERE id=?))});
		$re->execute($uname_id) or die("hi! error(select last_time)");
		$results = $re->fetchrow_array();

		if ((time() - $results ) < "300")
		{
			print qq{\n\t\t\t\t\t\t\t<online />};
		}

		$pic_url = "/usr/".$uname[0]."/userpic-small.png";
		$pic_url_full = $DOC_ROOT.$pic_url;
#		echo $pic_url;
		if (!(-e $pic_url_full)) {$pic_url = "/image/no_ava.gif";}
		print qq{\n\t\t\t\t\t\t<ava>$pic_url</ava>
				};
		
# 		if($masha == 0)
# 		{
# 		    $text = $text."<div id=\"stat\"><p>@uname[13]</p></div>";
# 		}
# 		else
# 		{
# 		    $text = $text."
# 							<script type=\"text/javascript\" src=\"/js/username.js\"></script>
# 							<script type=\"text/javascript\" src=\"/js/core.js\"></script>
# 							<script type=\"text/javascript\">
# 							<!--
# 							var stat;
# 							stat = \"".$uname[13]."\";
# 		
# 							//stat_edit();onkeypress
# 		
# 							document.write('<a href=\"#\" onclick=\"open_edit_stat(\\'visible\\');\" alt=\"Редактировать статус\" >'+stat+'</a>');
# 							document.write('<input id=\"status\" style=\"visibility:hidden\" onkeyup=\"stat_edit()\" type=\"text\" size=\"20\" maxlength=\"100\" name=\"stat\" value=\"' + stat + '&nbsp\"  />');
# 							//-->
# 							</script>
# 							
# 							<!--/form-->";
# 		}
		
		$sex0 = @uname[5]; # Генитальное определение пола
		if (!$sex0)
		{
		   $sex= "не заданно";
		}
		if ($sex0 == 1)
		{
		   $sex= "мужской";
		}
		if  ($sex0 == 8)
		{
		   $sex="женский"; 
		}
		print qq{			
						<sex>$sex</sex>};
		@bdate = split(/ /,@uname[6]);
		$bdate = shift @bdate;
		print qq{
					<bdate>$bdate</bdate>};
				print qq{
					<age>@uname[17]</age>};
		if(!@uname[13])
		{
			if($masha==1)
			{$stat ="\[Изменить статус\]";}
			else{$stat ="\[Статус пуст\]";}
		}
		else{$stat =@uname[13];}
			print qq{
						<stat>$stat</stat>};
		
			print qq{
						<phone>};
			### телефон @uname[7]	
			@phone = split (/,/,@uname[7]);
			@phone_all = ('phone_mob', 'phone_home', 'phone_work', 'phone_other');
			#print @phone;
			foreach (@phone)
			{
				@phone_item = split (/:/,$_);
				$phone_type = shift @phone_item;# Выбираем из массива только название типа телефона
				
				
				$phone_numder = shift @phone_item;# Выбираем из массива только оставшиеся элемент, то есть цифры номера
				@phone_digest = split (/ /,$phone_numder);# но посвольку они не совсем в том формате который нам нужен мы разбиваем цифры на массив
				if(!$phone_numder)
				{
					$style = qq{display: none;};
				}
				else
				{
					$style = qq{display: block;};
				}
				@temp = split (/_/,$phone_type);
				$phone_type_short = @temp[1];
				print qq{
							<item type="$phone_type" type_short="$phone_type_short" img="/image/phone/$phone_type.png" style="$style" country="@phone_digest[0]" city="@phone_digest[1]" number="@phone_digest[2]"/>};
			}
		print qq{
						</phone>};
		
		print qq{			
						<im>
							<item type="icq" data="@uname[8]" />
							<item type="jabber" data="@uname[3]\@jabber.test.ru"/>
						</im>};
		print qq{
						<inters>@uname[14]</inters>
						<citata>@uname[15]</citata>
						<about>@uname[12]</about>
					</show>
					<groups id=\"@user_groups[1]\">};
						show_user_groups_names($uname_id, show_user_groups_ids($uname_id));
		print qq{
					</groups>
					<music id=\"\">};
						show_user_music_names($uname_id);
		print qq{
					</music>
					<video id=\"\">};
						show_user_video_names($uname_id);
		print qq{
					</video>};
		print qq{\n\t\t</data>\n\t</content>};
	}
	
	case "edit"
	{
		print qq{
		<subnav>
			<object>
				<name>На свою страницу</name>
				<href>index.pl?uname=$auth_id&amp;act=show</href>
			</object>
			<object>
				<name>Выход</name>
				<href>/username/index.pl?uname=$auth_id&amp;act=exit</href>
			</object>
		</subnav>
		};
		
		print qq{
			<content type=\"username-edit\">
				<data>
			};
		if ($masha==1)
		{
			print qq{		<edit>
								<name>$uname[1]</name>};
										$pic_url = "/usr/".$uname[0]."/userpic-small.png";
			$pic_url_full = $DOC_ROOT.$pic_url;
	#		echo $pic_url;
			if (!(-e $pic_url_full)) {$pic_url = "/image/no_ava.gif";}
			print qq{		<ava>$pic_url</ava>
						<email>$uname[4]</email>};
	
	
			$sex0 = @uname[5]; # Генитальное определение пола
			if ($sex0 == 1)
			 {
			   $sex= "мужской";
			 }
			 else {
			   $sex="женский"; 
			 }
			print qq{		<sex>$sex</sex>};
			
			@bdate = split(/ /,@uname[6]);
			$bdate = shift @bdate;
			@bdate_part = split(/-/,$bdate);
			print qq{
				<bdate byear="@bdate_part[0]" bmonth="@bdate_part[1]" bday="@bdate_part[2]" />};
							
			### телефон @uname[7]	
			print qq{
							<phone>};
			@phone = split (/,/,@uname[7]);
			@phone_all = ('phone_mob', 'phone_home', 'phone_work', 'phone_other');
			#print @phone;
			foreach (@phone)
			{
				@phone_item = split (/:/,$_);
				$phone_type = shift @phone_item;# Выбираем из массива только название типа телефона
				
				
				$phone_numder = shift @phone_item;# Выбираем из массива только оставшиеся элемент, то есть цифры номера
				@phone_digest = split (/ /,$phone_numder);# но посвольку они не совсем в том формате который нам нужен мы разбиваем цифры на массив
				if(!$phone_numder)
				{
					$style = qq{display:none};
				}
				else
				{
					$style = qq{display:block};
				}
				@temp = split (/_/,$phone_type);
				$phone_type_short = @temp[1];
				print qq{
							<item type="$phone_type" type_short="$phone_type_short" img="/image/phone/$phone_type.png" style="$style" country="@phone_digest[0]" city="@phone_digest[1]" number="@phone_digest[2]"/>};
			}
		print qq{
						</phone>};
			print qq{			
							<im>
								<item type="icq" data="@uname[8]" />
								<item type="jabber" data="@uname[3]\@jabber.test.ru"/>
							</im>
							<inters>@uname[14]</inters>
							<citata>@uname[15]</citata>
							<about>@uname[12]</about>
						</edit>
					<groups id=\"@user_groups[1]\">};
						show_user_groups_names($uname_id, show_user_groups_ids($uname_id));
			print qq{
					</groups>
					<music id=\"\">};
						show_user_music_names($uname_id);
		print qq{
					</music>
					<video id=\"\">};
						show_user_video_names($uname_id);
		print qq{
					</video>};
		}
		else 
		{
			print qq{
					<error>
						<text>Редактировать можно только свою учетную запись!</text>
					</error>
					<groups id=\"@user_groups[1]\">};
						show_user_groups_names($uname_id, show_user_groups_ids($uname_id));
			print qq{
					</groups>
					<music id=\"\">};
						show_user_music_names($uname_id);
		print qq{
					</music>
					<video id=\"\">};
						show_user_video_names($uname_id);
		print qq{
					</video>};
		}
		print qq{\n\t\t</data>\n\t</content>};
 	}
}
print qq{\n</document>\n};
#$content = $text;
    
#require "theme.pl";
